1 REM =================================
2 REM
3 REM       MONKEYS & COCONUTS
4 REM      (BRUTE FORCE METHOD)
5 REM
6 REM        RUPERT REPORT #62
7 REM
9 REM =================================
10 DEF FNII(Z)=(Z=INT(Z)) :REM TRUE IF Z IS INTEGER
15 PRINT "[147]": HM $=CHR$(19) :REM HOME
20 FOR A=1 TO 10000
25 PRINT HM$; A;
30 B=(A-1)/5 :REM TAKEN BY 1ST SAILOR
35 IF NOT FNII(B) THEN 100
40 C=(A-B-2)/5 :REM 2ND SAILOR
45 IF NOT FNII(C) THEN 100
50 D=(A-B-C-3)/5 :REM 3RD SAILOR
55 IF NOT FNII(D) THEN 100
60 E=(A-B-C-D-4)/5 :REM 4TH SAILOR
65 IF NOT FNII(E) THEN 100
70 F=(A-B-C-D-E-5)/5 :REM 5TH SAILOR
75 IF NOT FNII(F) THEN 100
80 G=(A-B-C-D-E-F-5)/5 :REM ALTOGETHER
85 IF NOT FNII(G) THEN 100
90 PRINT: PRINT "SOLUTION: INITIAL # COCONUTS =";A
100 NEXT A
110 PRINT